﻿
Partial Class store_UCArt
    Inherits System.Web.UI.UserControl

    Public Sub Display(p As CProduct)
        img.ImageUrl = CSitemap.ProductImage(p)
        img.AlternateText = p.ProductName

        lbl.Text = p.ProductName

        lnk.ToolTip = String.Concat(p.DateString, ": ", p.ProductName, vbCrLf, p.ProductDescription)
        lnk.NavigateUrl = CSitemap.Decide(p)
    End Sub

End Class
